# Usage: fleet.tcl

if {![info exists eWorkDir]} {set eWorkDir [file dirname [info script]]}

package require DPeye

create {
	outputFile fleet.ps 
	images {
		fleet {fleet16.bmp {trace 1 1}}
	}
	locationTypes {
		ShapePoints {number 1}
	}
	locations {
		dots {image {fleet magenta} ShapePoints x Blue}
	}
	shapes {
		contour {dots {line {
			49 41 42 38 37 29 30 26 25 21 22 
			31 32 19 20 13 14 15 16  5  6  1 
			 2  7  8 17 18  9 10  3  4 11 12 
			33 34 23 24 28 27 35 36 40 39 43 
			44 45 46 48 47 50
		}}}
	}
	borders {
		fleet {shape contour Yellow Border {Black 10}}
	}
	$MapDrawingScale .1
	frame none
}